﻿Imports System.Data.SqlClient

Public Class AdministradorDAO

    Public Function validar(ByVal modelo As Administrador) As Administrador
        Dim usuario As New Administrador

        Try
            Dim cn As New SqlConnection(ConexionBD.obtenerCadenaConexion())
            cn.Open()

            Dim sql = "SELECT IDADMINISTRADORES, IDADMIN,NOMBRES, APELLIDOP, APELLIDOM, CLAVE  FROM ADMINISTRADORES WHERE IDADMIN=@VALOR2 AND CLAVE=@VALOR6"
            Dim cmd As New SqlCommand(sql, cn)

            cmd.Parameters.AddWithValue("@VALOR2", modelo.idAdmin)
            cmd.Parameters.AddWithValue("@VALOR6", modelo.clave)

            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader()
            If dr.Read Then
                usuario.idAdministradores = dr(0).ToString
                usuario.idAdmin = dr(1).ToString
                usuario.Nombres = dr(2).ToString
                usuario.ApellidoP = dr(3).ToString
                usuario.ApellidoM = dr(4).ToString
                usuario.clave = dr(5).ToString


            Else
                Throw New DAOExcepcion("Usuario y/o clave incorrecto")
            End If

            dr.Close()


        Catch ex As SqlException
            Throw New DAOExcepcion(ex.ToString)
        End Try

        Return usuario
    End Function

End Class
